set ns [new Simulator]
set qsize 20
set ta [open traceFile.dat w]
set tq [open 3.dat w]
$ns trace-all $ta
set nf [open out.nam w]
$ns namtrace-all $nf

proc finish {} {
	global ns  ta tq  nf
	$ns flush-trace
	close $nf
	exec nam out.nam &
	close $ta
	close $tq
	exit 0
}
$ns simlex-link $n1 $n2 1.0Mb 2.0ms DropHead set n1 [$ns node]
set n2 [$ns node]
